; DISPLAY CURRNT VALUE IN [A] (ZILOG)
; All registers unchanged
 
LBYTE:PUSH	AF
	PUSH	BC
	PUSH	AF
	RRCA
	RRCA
	RRCA
	RRCA
	CALL	CONV
      CALL  ZCO 
	POP	AF
SF598:CALL	CONV
	CALL	ZCO	;Send to consol
	POP	BC
	POP	AF
	RET
;
CONV:	AND	0FH	;CONVERT HEX TO ASCII
	ADD	A,90H
	DAA
	ADC	A,40H
	DAA
	LD	C,A
      RET